home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 May / PC Answers CD-ROM 7 (Future Publishing) (May 1995).iso / vbits / code / cert / trk3_eg / help / helpcmdl.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-11-07  |  1.6 KB  |  52 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Calling Help"
  4.    ClientHeight    =   2475
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   4260
  8.    Height          =   2880
  9.    Left            =   1035
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   2475
  12.    ScaleWidth      =   4260
  13.    Top             =   1140
  14.    Width           =   4380
  15.    Begin CommandButton cmdSearch 
  16.       Caption         =   "&Search"
  17.       Height          =   495
  18.       Left            =   600
  19.       TabIndex        =   1
  20.       Top             =   1440
  21.       Width           =   1215
  22.    End
  23.    Begin CommonDialog CMDialog1 
  24.       Left            =   2520
  25.       Top             =   960
  26.    End
  27.    Begin CommandButton cmdHelp 
  28.       Caption         =   "&Help Topic"
  29.       Height          =   495
  30.       Left            =   600
  31.       TabIndex        =   0
  32.       Top             =   480
  33.       Width           =   1215
  34.    End
  35. Option Explicit
  36. Sub cmdHelp_Click ()
  37.     CMDialog1.HelpFile = "VB.HLP"   ' Set Help properties.
  38.     CMDialog1.HelpCommand = HELP_KEY
  39.     CMDialog1.HelpKey = "MouseDown"
  40.     ' Set flag to display the dialog with a Help button.
  41.     CMDialog1.Flags = OFN_SHOWHELP Or OFN_HIDEREADONLY
  42.     CMDialog1.Action = 6    ' Display Open dialog.
  43. End Sub
  44. Sub cmdSearch_Click ()
  45.     CMDialog1.HelpFile = "VB.HLP"   ' Set Help properties.
  46.     CMDialog1.HelpCommand = HELP_PARTIALKEY
  47.     CMDialog1.HelpKey = ""
  48.     ' Set flag to display the dialog with a Help button.
  49.     CMDialog1.Flags = HELP_PARTIALKEY Or OFN_HIDEREADONLY
  50.     CMDialog1.Action = 6    ' Display Open dialog.
  51. End Sub
  52.